home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Mouse Logitech.xpl < prev    next >
Text File  |  2001-01-11  |  3KB  |  90 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Hardware\Mouse\Logitech"
  5. "NAME"="Logitech Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Use middle mouse-button as double-click"
  8. "TEXT 2"="Enable Logitech Control Panel Extensions"
  9. "TEXT 3"="Improve wheel mouse compatibility with games"
  10. "DESCRIPTION 1"="If the middle mouse-button is currently unused, you can use it as a shortcut to a double-click."
  11. "DESCRIPTION 2"="Note that this plug-in will be usable only if you are using a Logitech mouse and the drivers are correctly installed."
  12. "DESCRIPTION 3"="If you have Logitech's MouseWare drivers (version 8.0 or better), then you may notice some extra pages in the Mouse Control panel. To remove these, clear the second box."
  13. "DESCRIPTION 4"="If you are having trouble using your Logitech Wheel Mouse with some games, put a tick in this box. For more information about this, see ftp://ftp.logitech.com/pub/techsupport/mouse/game_whl.txt"
  14. "COMMENT 1"="Thanks to Neil R. Turner (totalxs@hotmail.com) for the Control Panel Extensions option!"
  15. "COMMENT 2"="Thanks to Xeno (xeno100@crosswinds.net) for the Wheel Mouse Compatibility option!"
  16. "VERSION"="1.32"
  17. "AUTHOR"="Xteq Systems"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "CONTACTURL"="http://www.xteq.com/"
  20. "OSVERSION"="11111"
  21.  
  22. 'Declaration of some constants
  23. sP="HKLM\Software\Logitech\Mouseware\CurrentVersion\"
  24. sR="Global\ActiveMouse"
  25. sV=""
  26. sV2="\0000\DoubleClick"
  27. sQ="HKLM\Software\Microsoft\Windows\CurrentVersion\Controls Folder\Mouse\shellex\PropertySheetHandlers\Logitech\@"
  28. sT="HKEY_LOCAL_MACHINE\Software\Logitech\MouseWare\CurrentVersion\Technical\MouseHookDllEnable"
  29.  
  30. 'Called when the Plugin is started
  31. SUB Plugin_Initialize
  32.  
  33.  If RegPathExists(sp) then
  34.   sV=RegReadValue(sp&sr)
  35.   if len(sv)<=0 then
  36.    Disable
  37.   else
  38.    i=RegReadValue(sp&sv&sv2)
  39.    if i="001" then SetUIElement 1,true
  40.   end if 
  41.  else
  42.   Disable
  43.  end if
  44.  
  45.  g=RegReadValue(sQ)
  46.  if g="{B9B0FDA0-3192-106A-A342-008048808AB0}" then
  47.   Call SetUIElement(2,true)
  48.  end if
  49.  
  50.  g=RegReadValue(sT)
  51.  if g=0 then
  52.   Call SetUIElement(3,true)
  53.  end if
  54. END SUB
  55.  
  56. 'Called when the Plugin should validate the Data the user has entered
  57. SUB Plugin_CheckData(ElementIndex)
  58. END SUB
  59.  
  60. 'Called when the Plugin should apply the changes
  61. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  62.  b=GetUIElement(1)
  63.  if b=true then
  64.   Call RegWriteValue(sp&sv&sv2,"001",1)
  65.  else
  66.   Call RegWriteValue(sp&sv&sv2,"000",1)
  67.  end if
  68.  
  69.  b=GetUIElement(2)
  70.  if b=true then
  71.   Call RegWriteValue(sQ,"{B9B0FDA0-3192-106A-A342-008048808AB0}",1)
  72.  else
  73.   t=RegValueExists(sQ)
  74.   If t=true then
  75.    Call RegDeleteValue(sQ)
  76.   end if
  77.  end if
  78.  
  79.  b=GetUIElement(3)
  80.  if b=true then
  81.   Call RegWriteValue(sT,"0",1)
  82.  else
  83.   Call RegWriteValue(sT,"1",1)
  84.  end if
  85. END SUB
  86.  
  87. 'Called when the Plugin is about to be removed from memory
  88. SUB Plugin_Terminate
  89. END SUB
  90.